/// Do Soldiers Get a Say? ///
/// Krebs, Ralston, Balzacq, Blagden, Rapport, Shenhav ///




********************************************************************************
/// Table 1: Respondent Belief in Soldier Support for Military Operation  & 
/// DV Respondent Support for Military Operation ///
********************************************************************************

* France 
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\France.dta"

reg favor soldierapproval citizen patriot employee desp
estimates store m1, title(Model 1)
reg favor soldierapproval citizen patriot employee desp prioremp priorpat priorcit ideo6 ///
rwa sdo bp miltherm hawk age edu income household selfserv female white
estimates store m2, title(Model 1)

* Israel
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\Israel.dta"

reg favor soldierapproval citizen employee 
estimates store m3, title(Model 1)
reg favor soldierapproval citizen employee joinpat joincit ideology rwa sdo bp IDFtherm hawk  age  edu income selfserv female religiosity ib5.ethnicity
estimates store m4, title(Model 1)


* UK
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\UK.dta"

reg favor soldierapproval patriot citizen employee desperate
estimates store m5, title(Model 1)
reg favor soldierapproval patriot citizen employee desperate joinemp joinpat joincit ideo6  rwa sdo bp miltherm hawk  age  edu income selfserv household female white
estimates store m6, title(Model 1)


* USA
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\US.dta"

reg favor soldierapproval patriot citizen employee desperate
estimates store m7, title(Model 1)
reg favor soldierapproval patriot citizen employee desperate joinemp joinpat joincit n_ideo ///
 n_rwa n_sdo n_bp n_miltherm n_hawk  n_age n_edu n_income household selfserv female nonwhite
estimates store m8, title(Model 1)

esttab m1 m2 m3 m4 m5 m6 m7 m8 using "DoSoldiersGetASay_Table 1.rtf", se r2  replace starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.0001) b(2) se(2)	

coefplot m2 m4 m6 m8, scheme(s1mono) mlcolor(black) mfcolor(none) mcolor(black) ///
		xline(0, lpattern(dash) lcolor(red%50))  ///
		drop(_cons) mlabposition(6)  ///
		aspect(1) xlab(-1 "Less Favorable"  0  1 "More Favorable")


******************************************************************************** 
/// Table 2: Respondent Belief in Soldier Support for Military Operation & 
/// DV Respondent Evaluation of Likely Battlefield Performance ///
********************************************************************************

* France 
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\France.dta"

reg soldierbattle soldierapproval citizen patriot employee desp
estimates store m1a, title(Model 1)
reg soldierbattle soldierapproval citizen patriot employee desp prioremp priorpat priorcit ideo6 ///
  rwa sdo bp miltherm hawk age edu income household selfserv female white
estimates store m2a, title(Model 1)

* Israel

use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\Israel.dta"

reg soldierbattle soldierapproval citizen employee 
estimates store m3a, title(Model 1)
reg soldierbattle soldierapproval citizen employee joinpat joincit ideology   rwa sdo bp IDFtherm hawk  age  edu income selfserv female religiosity ib5.ethnicity
estimates store m4a, title(Model 1)


* UK

use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\UK.dta"

reg soldierbattle soldierapproval patriot citizen employee desperate
estimates store m5a, title(Model 1)
reg soldierbattle soldierapproval patriot citizen employee desperate joinemp joinpat joincit ideo6   rwa sdo bp miltherm hawk  age  edu income selfserv household female white
estimates store m6a, title(Model 1)


esttab m1a m2a m3a m4a m5a m6a  using "DoSoldiersGetASay_Table 2.rtf", se r2  replace starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.0001) b(2) se(2)


********************************************************************************
/// Table 3: Respondent Empathy & DV Respondent Support for Military Operation & 
/// DV Respondent Belief in Soldier Support for Military Operation ///
********************************************************************************

* France 
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\France.dta"


reg favor c.concern##extrinsic soldierapproval  prioremp priorpat priorcit ideo6 ///
 rwa sdo bp miltherm hawk age edu income household selfserv female white if control==0 
estimates store m1d, title(Model 1)
reg favor c.persp##extrinsic soldierapproval  prioremp priorpat priorcit ideo6 ///
rwa sdo bp miltherm hawk age edu income household selfserv female white if control==0 
estimates store m2d, title(Model 1)


reg soldierapproval c.concern##extrinsic   prioremp priorpat priorcit ideo6 ///
rwa sdo bp miltherm hawk age edu income household selfserv female white if control==0 
estimates store m3d, title(Model 1)
reg soldierapproval c.persp##extrinsic   prioremp priorpat priorcit ideo6 ///
 rwa sdo bp miltherm hawk age edu income household selfserv female white if control==0 
estimates store m4d, title(Model 1)

* UK
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\UK.dta"

reg favor c.concern##extrinsic soldierapproval joinemp joinpat joincit ideo6  rwa sdo bp miltherm hawk  age  edu income selfserv household female white if control==0
estimates store m5d, title(Model 1)
reg favor c.persp##extrinsic soldierapproval joinemp joinpat joincit ideo6  rwa sdo bp miltherm hawk  age  edu income selfserv household female white if control==0
estimates store m6d, title(Model 1)

reg soldierapproval c.concern##extrinsic  joinemp joinpat joincit ideo6  rwa sdo bp miltherm hawk  age  edu income selfserv household female white if control==0
estimates store m7d, title(Model 1)
reg soldierapproval c.persp##extrinsic  joinemp joinpat joincit ideo6  rwa sdo bp miltherm hawk  age  edu income selfserv household female white if control==0
estimates store m8d, title(Model 1)

esttab m1d m2d m3d m4d m5d m6d m7d m8d using "DoSoldiersGetASay_Table 3.rtf", se r2  replace starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.0001) b(2) se(2)




********************************************************************************
/// Figure 2: Respondent Belief in Soldier Support for Military Operation ///
********************************************************************************

* Israel
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\Israel.dta"
reg soldierapproval  intrinsic extrinsic
estimates store Israel, title(Model 1)

* France 
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\France.dta"
reg soldierapproval intrinsic extrinsic
estimates store France, title(Model 1)

* UK
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\UK.dta"
reg soldierapproval intrinsic extrinsic
estimates store UK, title(Model 1)


* USA
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\US.dta"
reg soldierapproval intrinsic extrinsic
estimates store USA, title(Model 1)

 
coefplot Israel France UK USA, scheme(s1mono) mlcolor(black) mfcolor(none) mcolor(black) ///
		xline(0, lpattern(dash) lcolor(red%50)) mlabel ///
		drop(_cons) mlabposition(6)  ///
		aspect(1) xlab(-.5 "Less Favorable"  0  .5 "More Favorable")


********************************************************************************
/// Figure 3: DV Respondent Support for Military Operation—Coefficient Plot ///
********************************************************************************

* France 
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\France.dta",replace
reg favor soldierapproval intrinsic ideology hawk age selfserv edu income female if control==0 
estimates store A1, title(Model 1) 

* Israel
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\Israel.dta", replace
reg favor soldierapproval intrinsic ideology hawk  age  selfserv edu income female if control==0 
estimates store A2, title(Model 1)

* UK
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\UK.dta", replace
reg favor soldierapproval intrinsic ideology hawk  age  selfserv edu income female if control==0 
estimates store A3, title(Model 1)

* USA
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\US.dta", replace
reg favor soldierapproval intrinsic ideology hawk  age  selfserv edu income female if control==0 
estimates store A4, title(Model 1)

coefplot A1 A2 A3 A4,  scheme(s1mono) mlcolor(black) mfcolor(none) mcolor(black) ///
		xline(0, lpattern(dash) lcolor(red%50))  ///
		 drop (_cons) mlabposition(6)  ///
		aspect(1) xlab(-2 "Less Operation Support"  0  2.0 "More Operation Support")


********************************************************************************
/// Figure 4: Predicted Probability of Respondent Supporting the Operation
/// Across Respondent Perception of Soldier Support for Operation ///
********************************************************************************



// Predicted Probabilities - Soldier Approval 


* France 
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\France.dta"

logit binaryfavor i.soldierapprovalINT citizen patriot employee desp
margins soldierapprovalINT
marginsplot, name(France)

* Israel
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\Israel.dta"


logit binaryfavor i.soldierapprovalINT citizen  employee 
margins soldierapprovalINT 
marginsplot, name(Israel)

* UK
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\UK.dta"

logit binaryfavor i.soldierapprovalINT citizen patriot employee desperate
margins soldierapprovalINT
marginsplot, name(UK)

* USA
use "C:\Users\ralstonr\OneDrive - University of Birmingham\Work with Ron\Crossnational Main\US.dta"

logit binaryfavor i.soldierapprovalINT citizen patriot employee desperate
margins soldierapprovalINT
marginsplot, name(US)

graph combine US France Israel UK, name(combined_plot_pop)
 











